home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Delphi / MP3 Blade Encoder Component 1.0 / MMMPREG.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-03-19  |  2.9 KB  |  71 lines
  1. {========================================================================}
  2. {=                (c) 1995-98 SwiftSoft Ronald Dittrich                 =}
  3. {========================================================================}
  4. {=                          All Rights Reserved                         =}
  5. {========================================================================}
  6. {=  D 01099 Dresden             = Fax.: +49(0)351-8037944               =}
  7. {=  Loewenstr.7a                = info@swiftsoft.de                     =}
  8. {========================================================================}
  9. {=  Actual versions on http://www.swiftsoft.de/index.html               =}
  10. {========================================================================}
  11. {=  This code is for reference purposes only and may not be copied or   =}
  12. {=  distributed in any format electronic or otherwise except one copy   =}
  13. {=  for backup purposes.                                                =}
  14. {=                                                                      =}
  15. {=  No Delphi Component Kit or Component individually or in a collection=}
  16. {=  subclassed or otherwise from the code in this unit, or associated   =}
  17. {=  .pas, .dfm, .dcu, .asm or .obj files may be sold or distributed     =}
  18. {=  without express permission from SwiftSoft.                          =}
  19. {=                                                                      =}
  20. {=  For more licence informations please refer to the associated        =}
  21. {=  HelpFile.                                                           =}
  22. {========================================================================}
  23. {=  $Date: 07.10.98 - 11:33:57 $                                        =}
  24. {========================================================================}
  25. unit MMMpReg;
  26.  
  27. {$I COMPILER.INC}
  28.  
  29. {$DEFINE _BLADEENC}
  30.  
  31. Interface
  32.  
  33. Procedure Register;
  34.  
  35. Implementation
  36.  
  37. {$R MMMPEG.D32}
  38.  
  39. uses
  40.     Controls,
  41.     Classes,
  42.     DsgnIntf,
  43.     SysUtils,
  44.     MMMpeg,
  45.     MMAudio,
  46.     MMAPlay
  47.     {$IFDEF _BLADEENC}
  48.     ,MMBlade
  49.     {$ENDIF}
  50.     ;
  51.  
  52. {==============================================================================}
  53. procedure Register;
  54. begin
  55.    RegisterComponents('MMWave', [TMMMpegFile,
  56.                                  TMMAudioFile,
  57.                                  TMMAudioPlayer
  58.                                  {$IFDEF _BLADEENC}
  59.                                  ,TMMMP3Encoder
  60.                                  {$ENDIF}
  61.                                  ]);
  62.  
  63.    RegisterPropertyEditor(TypeInfo(TFileName),TMMMpegFile,'FileName',TMMMpegFileNameProperty);
  64.    RegisterComponentEditor(TMMMpegFile, TMMMpegFileComponentEditor);
  65.  
  66.    RegisterPropertyEditor(TypeInfo(TFileName),TMMBaseAudioFile,'FileName',TMMAudioFileNameProperty);
  67.    RegisterComponentEditor(TMMBaseAudioFile, TMMAudioFileComponentEditor);
  68. end;
  69.  
  70. end.
  71.